home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / mail / AEMail.lha / aemail151 / files.lha / ARexx.lha / html.aem < prev    next >
Encoding:
Text File  |  1998-03-08  |  691 b   |  26 lines
  1. /* AEMail html display */
  2. OPTIONS RESULTS
  3.  
  4. PARSE ARG file a
  5.  
  6. ADDRESS COMMAND "DELETE >NIL: t:amtemp.html"
  7. ADDRESS COMMAND "RENAME >NIL: T:Amtemp t:amtemp.html"
  8.  
  9. IF ~ SHOW("PORTS","IBROWSE") THEN
  10.     DO
  11.     ADDRESS COMMAND "Run >NIL: IBROWSE:Ibrowse"
  12.     ADDRESS COMMAND "WaitForPort IBROWSE"
  13.     IF ~ SHOW("PORTS","IBROWSE") THEN
  14.         DO
  15.         ADDRESS COMMAND "Run >NIL: sys:utilities/multiview" file
  16.         EXIT
  17.         END
  18.     END
  19.  
  20. ADDRESS IBROWSE INFO SCREEN
  21. ADDRESS AEMAIL1 SCREENTOFRONT result
  22. if (result = 0) then ADDRESS AEMAIL1 okay1 "Bad Public Screen"
  23.  
  24. ADDRESS IBROWSE GOTOURL "file://localhost/t:amtemp.html"
  25. if (RC ~= 0) then ADDRESS AEMAIL1 okay1 "IBROWSE returned RC "RC
  26.